home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / Disk Timer / MPW C Disk Timer < prev   
Encoding:
Text File  |  1986-09-23  |  8.1 KB  |  253 lines  |  [TEXT/ttxt]
  1.  
  2. Data Library Disposition Menu
  3.  
  4.  1 (REA)  Read this file
  5.  2 (DOW)  Download this file
  6.  3 (M)    Data Library Menu
  7.  
  8.  
  9. Enter choice or <CR> for next !1
  10.  
  11. /* DiskTimer.c                  Steve Brecher
  12.  *
  13.  * This is an MPW C source file.  Set Tabs to 4.
  14.  *
  15.  * This program does a performance test on the volume from which it is launched:
  16.  *              Data transfer speed:
  17.  *                      32KB reads
  18.  *                      32KB writes
  19.  *              Access time:
  20.  *                      1 512-byte read from block 0 followed by 1 512-byte read
  21.  *              from offset 1MB (volume must be at least 1MB+512bytes large)
  22.  *
  23.  * Each test is performed multiple times.
  24.  *
  25.  * The write tests use the data that was previously read, so the test is
  26.  * non-destructive.
  27.  *
  28.  * The predecessor program, DiskBench, did the I/O starting at volume offset 0.
  29.  * That was unfair if the volume started within 32KB of a cylinder boundary, or
  30.  * if the first 32KB happened to contain a remapped block or track, or required
  31.  * controller or driver retries due to a soft error.  DiskTimer does a
  32.  * pre-calibration by doing a smaller number of I/O iterations at various
  33.  * offsets up to 32KB from the start of the volume, and using the offset which
  34.  * results in the best time for the reported tests.
  35.  *
  36.  * To a avoid constant sector skew between I/Os, which might be unfair
  37.  * to some drives, there is now a varying delay between I/O requests.  The
  38.  * delay is obtained via a pseudo-random number generator, using the same
  39.  * seed on each run.
  40.  *
  41.  * In order to avoid confusion with results from the previous DiskBench
  42.  * program, DiskTimer reports results in seconds instead of ticks.
  43.  */
  44.  
  45. /* #define              Version "1.0"   /* 15-Sep-86 */
  46. #define         Version "1.1"   /* 16-Sep-86 report results in seconds */
  47.  
  48. #include        <Types.h>
  49. #include        <Strings.h>
  50. #include        <Resources.h>
  51. #include        <Quickdraw.h>
  52. #include        <Fonts.h>
  53. #include        <Windows.h>
  54. #include        <TextEdit.h>
  55. #include        <Dialogs.h>
  56. #include        <Memory.h>
  57. #include        <Events.h>
  58. #include        <Files.h>
  59. #include        <SegLoad.h>
  60.  
  61. /* If the following two counts are changed, DITL 129 must be changed also */
  62. #define TransferCount   100     /* number of times to perform data transfer tes/
  63. #define SeekCount               80      /* number of times to perform seek test/
  64.  
  65. #define CalibCount              10      /* number of read iterations for calibr/
  66. #define XferSize                (32*1024)
  67. #define WaitDlogID              128
  68. #define ResultsAlertID  129
  69. #define ErrorAlertID    130
  70. #define GreetAlertID    131
  71. #define StrVolTooSmall  128
  72.  
  73. #define CurApRefNum             ((short *)0x900)
  74. #define FCBsPtr                 ((Ptr *)0x34E)
  75. #define Ticks                   ((longword *)0x16A)
  76. #define fcbVPtr                 20
  77.  
  78. typedef unsigned long   longword;
  79.  
  80. DialogPtr       DlogPtr;
  81. Handle          BuffHndl;       /* to I/O buffer */
  82. IOParam         ioPB;
  83. longword        XferRdTicks, XferWtTicks, AccessTicks;
  84. Boolean         SkipAccess;     /* flag to skip access tests if volume too smal/
  85. longword        VolOffset;
  86.  
  87. void Error(err)
  88.         OSErr   err;
  89.         {
  90.         char    ErrStr[8];
  91.  
  92.         DisposDialog(DlogPtr);
  93.         sprintf(ErrStr, "%d", err);
  94.         ParamText(ErrStr, 0, 0, 0);
  95.         StopAlert(ErrorAlertID, 0);
  96.         ExitToShell();
  97. }
  98.  
  99. /*
  100.  * Put up intro alert; return true/false for OK/Cancel.  If OK, put up
  101.  * "Please wait" dialog and get mouse location; get data buffer.
  102.  * Note:  random seed is initted to 1 by InitGraf.
  103.  */
  104. Boolean Initialize()
  105.         {
  106.         extern struct qd qd;
  107.  
  108.     InitGraf(&qd.thePort); InitFonts(); InitWindows(); TEInit(); InitDialogs(0);
  109.         FlushEvents(everyEvent, 0);
  110.         
  111.         BuffHndl = NewHandle(XferSize);
  112.         InitCursor();
  113.         if (Alert(GreetAlertID, 0L) == ok) {
  114.                 DlogPtr = GetNewDialog(WaitDlogID, 0, (WindowPtr)-1);
  115.                 BeginUpdate(DlogPtr);
  116.                 DrawDialog(DlogPtr);
  117.                 EndUpdate(DlogPtr);
  118.                 return true; }
  119.         return false;
  120. }
  121.  
  122. longword XferTest(Count, Write)
  123.         int             Count;
  124.         Boolean Write;
  125.         {
  126.         int                     i;
  127.         OSErr           err;
  128.         longword        StartTicks, TempTicks, CurrTicks;
  129.  
  130.         StartTicks = *Ticks;
  131.         for (i=0; i<Count; ) {
  132.                 ioPB.ioPosOffset = VolOffset;
  133.                 if (Write)
  134.                         err = PBWrite(&ioPB, false);
  135.                 else
  136.                         err = PBRead(&ioPB, false);
  137.                 if (err)
  138.                         Error(err);
  139.                 if (++i < Count) {
  140.                         TempTicks = *Ticks;
  141.                         Delay((Random()&7)+1, &CurrTicks);
  142.                         StartTicks += CurrTicks - TempTicks; } }
  143.         return *Ticks - StartTicks;
  144. }
  145.  
  146. /*
  147.  * Set up ioPB with driver refNum and default volume's drive number.
  148.  * Set value of SkipAccess flag.
  149.  * Determine which offset in the set 0,4K,8K,...32K from start of volume
  150.  * results in best 32K read time.
  151.  */
  152. void Calibrate()
  153.         {
  154.         VCB                     *vcbPtr;
  155.         longword        TempTicks, BestTicks, BestOffset;
  156.  
  157.         vcbPtr = *(VCB **)(*FCBsPtr + *CurApRefNum + fcbVPtr);
  158.         ioPB.ioRefNum = vcbPtr->vcbDRefNum;
  159.         ioPB.ioVRefNum = vcbPtr->vcbDrvNum;
  160.         ioPB.ioBuffer = *BuffHndl;
  161.         ioPB.ioPosMode = fsFromStart;
  162.         ioPB.ioReqCount = 512;
  163.         VolOffset = 0;
  164.         XferTest(1, false); /* seek to start of volume */
  165.         ioPB.ioReqCount = XferSize;
  166.         BestTicks = 0xFFFFFFFF;
  167.         for (VolOffset=0; VolOffset<XferSize; VolOffset+=4096)
  168.                 if ((TempTicks=XferTest(CalibCount, false)) < BestTicks) {
  169.                         BestTicks = TempTicks;
  170.                         BestOffset = VolOffset; }
  171.         VolOffset = BestOffset;
  172.         SkipAccess = (vcbPtr->vcbAlBlkSiz * vcbPtr->vcbNmAlBlks) < VolOffset + ;
  173. }
  174.  
  175. longword AccessTest()
  176.         {
  177.         int                     i;
  178.         OSErr           err;
  179.         longword        StartTicks, TempTicks, CurrTicks;
  180.  
  181.         ioPB.ioReqCount = 512;
  182.         StartTicks = *Ticks;
  183.         for (i=0; i<SeekCount/2; ) {
  184.                 ioPB.ioPosOffset = VolOffset + 1024*1024;
  185.                 if (err = PBRead(&ioPB, false))
  186.                         Error(err);
  187.                 TempTicks = *Ticks;
  188.                 Delay((Random()&7)+1, &CurrTicks);
  189.                 StartTicks += CurrTicks - TempTicks;
  190.                 ioPB.ioPosOffset = VolOffset;
  191.                 if (err = PBRead(&ioPB, false))
  192.                         Error(err);
  193.                 if (++i < SeekCount/2) {
  194.                         TempTicks = *Ticks;
  195.                         Delay((Random()&7)+1, &CurrTicks);
  196.                         StartTicks += CurrTicks - TempTicks; } }
  197.         return *Ticks - StartTicks;
  198. }
  199.  
  200. void Results()
  201.         {
  202.         char            XferRdStr[8], XferWtStr[8], AccessStr[64];
  203.         short           itemHit;
  204.  
  205.         DisposDialog(DlogPtr);          /* take down "Please wait" */
  206.         sprintf(XferRdStr, "%6.1f", XferRdTicks/60.0);
  207.         sprintf(XferWtStr, "%6.1f", XferWtTicks/60.0);
  208.         if (SkipAccess)
  209.                 strcpy(AccessStr, p2cstr(*GetResource('STR ', StrVolTooSmall)));
  210.         else
  211.                 sprintf(AccessStr, "%6.1f", AccessTicks/60.0);
  212.         ParamText(XferRdStr, XferWtStr, AccessStr, Version);
  213.         Alert(ResultsAlertID, 0);
  214. }
  215.  
  216. main()
  217.         {
  218.         
  219.         if (Initialize()) {
  220.                 Calibrate();
  221.                 XferRdTicks = XferTest(TransferCount, false);   /* reads */
  222.                 XferWtTicks = XferTest(TransferCount, true);    /* writes */
  223.                 if (!SkipAccess)
  224.                         AccessTicks = AccessTest();
  225.                 Results(); }
  226.         ExitToShell();
  227. }
  228.  
  229.  
  230. Press <CR> to continue !}i
  231. }i
  232.  
  233. [70001,1011]
  234. DSKTIM.C                  16-Sep-86 6325               27
  235.  
  236. Enter command, N for next file
  237. or <CR> for disposition menu !
  238.  
  239. Data Library Disposition Menu
  240.  
  241.  1 (REA)  Read this file
  242.  2 (DOW)  Download this file
  243.  3 (M)    Data Library Menu
  244.  
  245.  
  246. Enter choice or <CR> for next !
  247.  
  248.  
  249. [75726,3541]
  250. MEMUTL                    12-Sep-86 4880(2112)         106
  251.  
  252.     Keywords: MEMORY AVERAGE
  253.